********** REPLICATION FILE, Stata code
********** Holy Nations: How White Racism Boosts Black Support for Christian Nationalism
********** Political Behavior

* Replicating experimental results
* Use Experiment Analysis data

reg CN ib1.Assignment, beta

reg CN ib1.Assignment##i.Christian, beta 
net install grc1leg, from (http://www.stata.com/users/vwiggins/)
margins if Christian==0, at (Assignment = (1 2 3))
marginsplot, title("Non-Christians") ytitle("Christian Nationalism Support") xtitle("Treatment") plotopts(connect(i) ylabel(.4 .5 .6 .7 .8))  level(84) leg(off) name(Christian)
margins if Christian==1, at (Assignment = (1 2 3))
marginsplot, title("Christians") ytitle("") xtitle("Treatment") plotopts(connect(i)  ylabel(.4 .5 .6 .7 .8))  level(84) leg(off) name(NonChristian)
grc1leg Christian NonChristian, legendfrom("") title("Figure 1: Nationalism increases Christian nationalism support" "among Black Christians") 


* Replicating Characteristics of a Christian America
* Use Characteristics data

set scheme s1color
grstyle init 

ologit Q9_1_1 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m911 
ologit Q9_1_2 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m912
ologit Q9_1_3 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m913
ologit Q9_1_4 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m914
ologit Q9_1_5 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m915
ologit Q9_1_6 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m916
ologit Q9_1_7 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m917
ologit Q9_1_8 i.Black BA Attend Dem_Rep Lib_Cons Educ Female Age, or
estimate store m918

colorpalette Blue BlueViolet Violet Red  Orange Yellow GreenYellow LimeGreen, nograph globals
return list

ssc install coefplot, replace
coefplot /// 
(m911 , label (1.Equal Opportunity) lc(Blue))  ///
(m912, label(2.Family Values) lc(BlueViolet))  ///
(m913, label (3.Effort) lc(Violet))            ///
(m914, label(4.Law and Order) lc(Red))         ///
(m915, label(5.Free Enterprise) lc(Orange))    ///
(m916, label(6.Racial Equality) lc(Yellow))    ///
(m917, label(7.Own Morals) lc(GreenYellow))    ///
(m918, label(8.Protect Poor) lc("50 205 50"))    ///
, drop(BA Attend Dem_Rep Lib_Cons Educ Female Age) xline(0) title("Figure 2: Race and Christian America Trait Evaluations") 





